Public Class ReporteAlquileresXBarrio

    Private Sub ReporteAlquileresXBarrio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rep As New CRAlquileresXBarrios
        Me.CrystalReportViewer1.ReportSource = rep
    End Sub
End Class